current_prolog_flag(argv,L),nth1(2,L,FILE), [FILE].
current_prolog_flag(argv,L),nth1(3,L,FILE), [FILE].
['framework/printmessages.pl'].
['framework/profiles.pl'].

findall(A,detect(A,_),LSTA), list_to_set(LSTA,SETA), assert(actorl(SETA)).

actorl(SETA),
forall((member(A,SETA)),(
  findall(Z,link(A,Z),ALLZ),
  findall(X,detect(A,X),ALLX1),
  findall(X,custompropx(A,X),ALLX2),
  append(ALLX1,ALLX2,ALLX),
  partby(ALLX,ALLZ,RET),
  sort(A,AS),
  toiois(RET,RET2P),sort(RET2P,RET2),
  noiois(RET,RET3P),sort(RET3P,RET3),
%  tocoastring(AS,ASS),
  printacts(AS),print('|'),printt(RET2),print('\n'),
  print('* Ignored: '),print(RET3),print('\n')
)).
